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(1) 


Sy5r NOWN SERVICE Ses 1g~$60- 138% 06:82:08 yaxives Macro V04-00 Page (9) 


SEP-19 SYS.SRCISYSRUNDWN.MAR; 1 


Change the deletion of image logical names within ghe process 
yogical name table so that the SDELLNM system service is used 
nstead of the SDELLOG system service. 


v03-014 $SA0018 Stan Amway 
Rundown page fault monitoring activity. 


v03-013 RSHO092 R. Scott Hanna 31-Jan-1984 
Modify the security auditing process rundown support to 
use the new IDT dedicated pages. 


v03-012 CdS0001 Christian D. Saether 16-Dec-1983 
Add comments reflecting new use by F11BXQP of the 
CCBSB_AMOD field. 


9-Mar-1984 


v03-011 RSHO067 R. Scott Hanna 22-Sep-1983 
Move the RDI table deallocation to earlier in the rundown. 
V03-010 RSHOO022 R. Scott Hanna 23-May-1983 


Add process rundown support to deallocate the Security 
Auditing Impure Data Table (IDT) and deassign the the 
Audit Journal. 


v03-009 SRB0084 Steve Beckhardt 29-Apr-1983 
Added LCKSM_INVVALBLK flag to S$DEQ to invalidate value 
blocks of locks being dequeued at high lock modes. 


DOOOOCOSOOOOOOCOOOOOOOOOOOOOOO 
SOOooQoooooooooooooooooooooooo 


OGOOOSOSOSOSOSOSSOSSSCGOOOOGOOOOOOOOSOOGOOOOOOOOOOOOO 


88 v03-008 JLV0231 Jake Verttoy 24-F EB-1983 
Bp Add checking of CCBSV_IMGTMP flag in running down channels. 
000 V03-007 RSHO003 R. Scott Hanna 10-Feb-1983 
0 Add rundown process ing to deallocate the RDI table 
888 and zero CTLSGL_RDIPTR. 
$00 V03-006 JWHO135 Jeffrey W. Horn 23-Nov-1982 
000 Add rundown processing for CTL$GQ_POALLOC and 
a0 CTLSGL_PRCALLCNT. 
00 v03-005 ACG0301 Andrew C. Goldstein, 21-Oct-1982 13:39 
bp Restore FILCNTNONZ bugcheck 
0 v03-004 wmMc0001 Wayne Cardoza 26-Au phe 
Make the privileged library vector reset a subroutine. 
v03-003 LJK0164 Lawrence J. Kenah 20-Apr-1982 


Clear byte sol eying RSB in privileged vector rundown loop 
so that next activation of privileged image succeeds. 


v03-002 LJK0158 Lawrence J. Kenah 9-Apr-1982 
Reset privileged vectors with pro esenspes : ic array 
to allow some vectors to survive image exit. 


v03-001 ACG0278 Andrew C. Goldstein, 11-Apr-1982 10:30 
Enable resource wait mode during rundown, 
disable channel deassignment bug trap 


= = § ~QOQOGD9OOO0SO0000 000 0 OO 0909 69 09 69 09 69 09 09 09 SINISE NIA A AAAAAAAOOUTU 
PAD OOD NA WNL WIN 9 9 OO NA UNE WPI OOO NAN E WR *§ S OD NOU WN QUOONOAUE WO O00 


Soooooo 
SOoOOoSoOOOOOOOSSSoOo 
SOoooooooooooooo: 


ath ad a ad a a a st tt 


) 
OF 


Mm 16 


Page 3 


aw 


IMAGE RUNDOWN SYSTEM SERVICE 


DECLARATIONS 


seu 


Be 09:85:46 FeNs ee T8SERUNStN wars 1 


Le) 
- Oo 
uw Vv 
[7,) So 
“ — _- 
ive @ 2 
°o 
nn a 
-— WM us 
w are _ 
w” a “ue a 
“- yo = c- 
wm we _- &—- & 
ounw nw 2 w 
ow = “ww a w 
va ee “wea J a 
“MOOK =—Y Mw <= =< 2 
.e=<t = & or o oO 
fol el ae) Mu Y Kare = 
aAVCoOVd= =H y vwov 
a wot wa wewo w 
—eu> awaw ve >S>Yv>o 
=) goo= MOadaedw Vv we 
ow —Ee-w -o 4 fad 
e2uroeerwraecto > ws 
eo womw daw oO va> — 
Sea av «HMw - ohh < 
WEMwwHE.YWMWWw wx ow ve 
wo Ze~nMoaQowwr- > _ wmwoeo eel 
w So wut 2 << o 
Ve} Zweomo0ovudc w wWWwWYw o 
MVIEZwrtavee-e- = www ail 
<u - 00000 w e&aow 
wo wuud ” 
UU UW ss Us a a La a Ls 7-4 ” 
222222222222 ed od aol w 
Da Og Od Bg ng Od Be Bg OO QQ «xxx vu 
MVMUMMEBEME Ke YO wus oO 
LVUTVULVUlVulvelvulyulvuyvelrulverry) -— 2222 a 
aaonoaanaanananha a a 
oooo 
Se Pee Fe re tere rere rare re OE ed ed eel ed oe 
a 
Wt 
MNUWNWW 
eres 
ees 
oo0oo 
e*e re *e 
~ 
nn ” 
=z ” 
o hd w 
oR ” oe vv 
- = w o 
< o 2 a 
a —_— « a 
<x - a faa 
— —_ ww = 
vw zx 2 
w (ve Lhd —_ ww — 
a [ve} ” —_— > ~ 
hd ao ad w 
wn “UME we So Qa 
I ws WI Oe a @ - Co 
- =) Coooaoo—-waowaow = <« wow _ 
- _ @OFOIx~cetODoOO-"4 = —- w vw 
@ rv VUVUV4A0MUOA0Ta0MN a” wc <= “WN 
yn 20-1 200.602 MeO ao a we 
° w PADS A AM ML HBO A OF oa onwnr © we 
a w wT hun VY @ 
2 —-— FF BWLevYU — <« 
oo | <= ws usu _ — 
vw > a =c>s>> < 4 
z So =} Mw oe =) 
— w be “” o 
Se <x <= 
certere coreroe z2azZzz eerere a 


DOR DOOK— CUM TN OR. DOO — CUM TN OR. DOOK— CUM TN OR. OKO 
III CCI OIC OPINED SS SF SF FSF ST ETA 


i 


SGOQDQOOOCOOOSOSGOOSOOOOOOSOSOOOSOSOOSOSOSOSOOSOOOOOw 
So SS SS SOS SS SSS 
COOOOOOCOSOOGOOOGOSOOOOOSOSSoO: 


0 


S 
zr oooo So 
oO 


52 50 24 4D 4E 4C 00099098" 9205 9000" 
53 53 45 43 4F 


Bes a AM ae oe ee pe SR, eS Sects eg RN A en eal ea eee a oa ee eae ge ipsa aes & 
i 1 i 
SYSR MAGE RUNDOWN SYSTEM SERVICE 16-SEP-1984 02:29: AX/VMS Macro Vv04-00 Page 
voeebOo EE SRN - IMAGE RUNDOWN SYSTEM SERVIC ets 86: 2:28 YOYS. SRCISYSRUNGUN MAR; 1 ° by 
i «SBTTL EXESRUNDWN - IMAGE RUNDOWN SYSTEM SERVICE 
1 § 344 
157 : FUNCTIONAL DESCRIPTION: 
138 3 EXESRUNDWN TERMINATES ALL PENDING ACTIVITY FOR THE SPECIFIED 
159 ; AND ALL LESS PRIVILEGED ACCESS MODES. ALL RESOURCES ASSOCIATED | 
160 ; WITH THE PENDING ACTIVITY WILL BE RELEASED IF APPROPRIATE 
16¢ : CALLING SEQUENCE: 
0 197 ; CALLG ARGLIST,EXESRUNDWN | 
165 : INPUT PARAMETERS: 
166 ; ACMODE (AP) = ACCESS MODE BOUNDARY FOR WHICH RUNDOWN IS TO BE PERFORMED 
He ; (MAXIMIZED WITH THE ACCESS MODE OF THE CALLER) | 
169 ; IMPLICIT INPUTS: | 
170 ; R4 = POINTER TO CURRENT PCB | 
1% + OUTPUT PARAMETERS: | 
ge hean | 
175 ; IMPLICIT OUTPUTS: 
176 ; ALL ACTIVITY INITIATED BUT NOT COMPLETED FOR ALL ACCESS MODES 
177 : HAVING THE SAME OR LESSER PRIVILEGE THAN THAT SPECIFIED WILL 
178 ; BE TERMINATED. | 
180 ; COMPLETION CODES: 
181 : SS$_NORMAL = SUCCESSFUL COMPLETION 
188 : SIDE EFFECTS: 
184 ; NONE 
185 ; 
186 
188 .ENTRY EXESRUNDWN,“M<R2,R3,R4,R5,R6,R7> 
189 EXTZV #0,#2,ACMODE (AP) ,RO > FETCH ACCESS MODE ARGUMENT 
FFER* 19 BSBW EXESMAXACMODE : MAXIMIZE WITH PREVIOUS 
57 5 i! 19 MOVL : SAVE IN R7 FOR REFERENCE 
oft AG O16 19 BBCC #PCBS$V_PWRAST,PCBSL_STS(R4),10$ ; SKIP IF NO POWER FAIL AST 
000090 "9 19 CLRL  a#CTL$GL_POWERAST ; ZAP AST ADDRESS 
AG 19 a INCW PCBSW_ASTCNT(R4) : AND RESTORE AST QUOTA | 
i . pines NESE EEE eee ee ee a i Pid i | 
: Enable resource wait mode to ensure that rundown will succeed. 
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; ENABLE WAIT MODE | 
; SAVE RETURN STATUS | 
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INVOKE THE USER RUNDOWN SERVICE(S) 


The user service is invoked in KERNEL mode with a JSB and must 
exit with a RSB. 
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SN 


R IMAGE RUNDOWN SYSTEM SERY EP=1984 v04-00 Pa 
it a EXESRUNDWN - IMAGE RUNDCUN SYSTEM SERVIC "gr niet 7 86: €: a 8 evs ache YSRUNDUN.. MAR; 1 ™ | 
A 11; 
A 1g : ns - Pointer to current PCB 
A 13; Access mode parameter to SYSRUNDWK maximized with previous mode 
. i ; AcMODE (AP) = Access mode parameter to SYSRUNDWN 
rn ! § : SS ae we eS a Se a oe me & mw an eS ee SS mm ee me ee Se eo 
55 00000000 ' 9F 00 A + MOVL 3 TLSGL_USRUNDWN, R5 ; GET 4 a ae + USER RUNDOWN VECTOR 
0 1 1 BEQL 0 3; NOT PRESENT, SK 
6 1 4 0 JSB (R5) : CALL THRU THE VECTOR(S) 
55 anneal D 4 1 20$: MOVL etree RS : Gere py3 terete USER RUNDOWN VECTOR 
1 4C § BEQL 0 ; NOT PRESENT, SKIP 
16 4 JSB CR5) ; CALL THRU THE VECTOR(S) 
5 4 30$: : 
be 5 ; SS em Sante OSS Ce BSB ese Bese eee OBC Oe See BE Oe ee SSS BS nae 
098 ; : WRITE IMAGE ACCOUNTING RECORD 
05 9 : Serereererreeecrr wees ee ae Se See Be eee Sw Swe ww eS Se Se & eSeeeceaenenoeaoeea =e Se ee ew ewe DS 
05 00000000'EF 1 E1 008 0 BBC #ACMSV_IMAGE ,EXESGL_ACMFLAGS, 408; a ACCOUNTING Te ? 
5 4 05 1 CLRL RS ; NOT A SPECIAL KERNEL A 
FFA3' 0 ths § 408 BSBW EXESIMGDELMSG ; WRITE IMAGE DELETION MESSAGE 
00000000'9F  7¢ 098 4 "  CLRQ.—s @ACTLSGO_ ISTART ; IMAGE ACCOUNTING INACTIVE 
0 ; 
006 $ : CLOCK THE IMAGE COUNTER 
06 $$ ; 
994 re 4 cm re Pee Pe me we Se = ee aD ee me GG Se em ee eee es eB wre ee ee ae => & 2 Se a Se 
55 00000000 ' 9F dO 096 41 MOVL @#CTLSGL_PHD,RS 3; GET rt wy: OF PROCESS HEADER 
OOF4 C5 06 06A 4g INCL PHDSL_ IMGCNT (RS) ; PROVIDE A CHECKING MECHANISM TO 
- Q06E 4 ; PREVENT DELIVERY OF AST'S TO THE 
06E 44 ; WRONG OR SUBSEQUENT IMAGES 
bee rf ‘ Se ee me Swe ewrerre a wee ere Se wee & ws S&S wm &@ = = wo meee wre weer s ewe 2 ee = oo eee 
Oce tf ; RESET THE DISPATCH VECTORS TO THEIR INITIAL VALUES. (NO VECTORS USED) 
06E 49 : ee ee me BERT EBR ee wee were eee eee sew eo mS ew we me er ee ee 
06E 50 
0000028D'EF 16 E 51 JSB EXESRESETVEC RESET DISPATCH VECTORS 
00000000 ' GF 00000000 ' GF DO Bho 26 MOVL G*MMGSGL_RMSBASE, G*CTLSGi _RMSBASE ;RESET TO DEFAULT RMS 
4 55 P+ ee Se ee Se ween eee ne ee we ew Sen een wee eco ewe De nee Se wee ee eee eee 
O7F 2 : PAGE FAULT MONITORING RUNDOWN 
07F 2 : 
ner 28 2 eesece SSS SSS SSS SSS SS SSSSSSSSSSSSSSSSSSSSSSSSSSF SSS SSS e2eeeeoeeneeaa 
¢ SSETPFM_S PFMFLG=#0 ; Terminate page fault monitoring 
: 66 Pfs cee eee eee ese eee ne eee => Se Se Sw Bom SP SS Se swe (Se me Re Oe Re 
¢ 64 ; SECURITY AUDITING PROCESS RUNDOWN 
C 6 : seen eee eeeeeeeceoe eeuervwreceaeane ee ee ew ee eae = wwe eanne ee nrnae ener ee saan ew we ew eee e =m 
C 6 
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§ TSTL RA? : Is THIS PROCESS RUNDOWN? 
BNEGU DASSI BR IF | 
20 MOVE SEUSS T IDTENSASL IDT Aub1 A CHAN RS wt ; IS JOURNAL ASSIGNED? | 
rg DEASJNL_S fw ; ; BEASSIGN. JOURNAL 
Pe i e S @eaereeeovecwvececworeroeceococeocoeee weowes @Paowmeoewewmaeceoecococanscoeesocoecowoaeceaen 
6 : DEASSIGN CHANNELS WITHOUT OPEN FILES 
7 : JS @enwereore ecw rer oer meaee2eocees eee eee ec wr amerr rer mera er erence snsaoeconmas ace 
8 BASSIGN1: ; FIRST DEASSIGN PASS | 
0 HOVZUL #CTLSGH_CHINDX RS + GET MAXIMUM INDEX 
1 BEQL ; NO CHANNELS ASSIGNED, LEAVE 
é MEG, A : CONVERT TO NEGATIVE OFFSET 
i sactctet <{foBAse 3 COMPUTE ADDRESS OF HIGHEST CHANNEL 
5 ASSUME FCBSB S sel Q ¢¢Bse amob : 
6 10S: CMPB (R3) ; IS THIS CHANNEL DEASSIGNABLE? 
: BGTR 15$ + YES, ASSIGNED BY HIGHER ACMODE 
9 ; 
90 ; NOTE THAT THE PRIVILEGE CHECK TO DETERMINE WHETHER THE CHANNEL SHOULD 
91 > BE DEASSIGNED BY THIS MODE MUST BE A SIGNED COMPARI 
3 : THE FIIBXQP ‘RESERVES’ A CHANNEL FOR ITSEL F (NEVER TO BE USED BY ANYTHING 
93 ; ELSE, OR DEASSIGNED) BY STORING A MINUS 1 (<1) IN THE CCB$B _AMOD FIELD. 
94 ; THIS CAUSES A SIGNED TEST AGAINST EVEN KERNEL MODE TO FAIL AS IF THE 
95 ; CHANNEL WERE ASSIGNED BY A HIGHER MODE. 
96 ; THE CHANNEL NEVER NEEDS TO BE DEASSIGNED BECAUSE THERE IS NO SPECIFIC 
97 ; DEVICE ASSOCIATED WITH IT - IT IS FABRICATED BY THE XQP INITIALIZATION 
98 : CODE WHEN THE PROCESS IS CREATED. 
0 oe 
1 BBC #CCBSV IMGTMP, (R3)CR5I,208 BRANCH IF NOT IMAGE TEMPORARY 
é 15$: MNEGL RS = (SB) : CONVERT TO REAL CHANNEL NUMBER 
~~ CALL *SYSSDASSGN > DE-ASSIGN CHANNEL 
4 20$: — ADDL ac tBst _LENGTH,RS : POINT aT NEXT CHANNEL 
. BLSS > NEXT CHANNEL 
0? Ps ee (eee Ge er we ee ew we we ee me ee ee wee Sw ew wm we we ee me wie ew ce 
03 : Deallocate the RDI table and zero CTLSGL_RDIPTR 
: 1 : -— Se Se Sw ee ee eer ee ewe ew eB ew wee er Ee eS @eeweeeseewe we = (RP 8o SO om = ee ae es 
ig 21$: MOVL @#CTLSGL_RDIPTR,RO : GET RDI POINTER 
14 BEQLU 228 : BR if NOT ALLOCATED 
15 MOVL RDISL SIZE (RO) R1 : SIZE oF ALLOCATED BLOCK 
18 CLRL asc TLSGL PTR : SERO RDI POINT 
1 JSB G*EXES SERPS + DEALLOCATE RDI BLOCK 
18 228 
30 
4 : RELEASE MEMORY | 
4 : Ce ee ee ee ee Re HD Oe eS | 
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BSBw MMGSIMGRESET ; RELEASE IMAGE PAGES 


DEASSIGN CHANNELS = ALL 


MOVZWL @#CTL$GW_CHINDX,RS ; GET MAXIMUM INDEX 
BEQL 4 * t NO CHANNELS ASSIGNED, LEAVE 
NEG + CONVERT TO NEGATIVE Or FSET 
a tian CCOBASE. R3 ; COMPUTE ADDRESS OF HIGHEST CHANNEL 
25$ CMPB : IS THIS CHANNEL DEASSIGNABLE? 
BLEQ $3 + NO, ASSIGNED BY LOWER ACMODE 
+ NOTE THAT THE PRIVIL GE CHECK TO DETERMINE WHETHER THE CHANNEL SHOULD 
: BE DEASSIGNED BY THIS MODE MUST BE A SIGNED COMPARI 
+ THE F11BXQP "RESERVES A CHANNEL | FOR ITSELF (NEVER TO BE USED BY ANYTHING 
> ELSE, OR DEASSIGNED) BY STORING A MINUS 1 (-1) IN THE CCB$B_AMOD FIELD. 
: THIS CAUSES A SIGNED TEST AGAINST EVEN KERNEL MODE TO FAIL BS IF THE 
> CHANNEL WERE ASSIGNED BY A HIGHER MODE. 
: THE CHANNEL NEVER NEEDS TO BE DEASSIGNED BECAUSE THERE IS NO SPECIFIC 
> DEVICE ASSOCIATED WITH IT - IT IS FABRICATED BY THE XQP INITIALIZATION 
: CODE WHEN THE PROCESS IS CREATED. 
MNEGL R5,-(SP) ; CONVERT TO REAL CHANNEL NUMBER 
CALLS #1.G*SYSS$DASSGN + DE-ASSIGN CHANNEL 
BLBS R0.30$ : BRANCH ON SUCCESS 
CHPL RO. #SS$_IVCHNLSEC : CHECK FOR SEETION ON CHANNEL 
BUG_CHECK FILCNTNONZ, FATAL t IT REALLY SHOULD HAVE WORKED 
30$: ADDL #CCBSC_LENGTH,RS ; POINT AT NEXT CHANNEL 
BLSS 25$ + NEXT CHANNEL 
FEALLOCATE ALLOCATED DEVICES 
40$:  $DALLOC_S ACMODE=R7 : DE-ALLOCATE AT ACCESS MODE 


CANCEL TIMER AND SCHEDULED WAKEUP REQUESTS 


SCANTIM_S ACMODE=R7 ; CANCEL TIMER REQUESTS 
SCANWAK"S ; CANCEL WAKE UP REQUESTS 
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vO4 EXESRUNDWN = IMAGE RUNDOWN SYSTEM SERVIC 5-SEP=1 SYS. SRCISYSR UNDWN. MAR; 1 (3) | 
14 ; | 
143 § ; DEQUEVE REMAINING LOCKS 
14 5 : ecw rer Be we we eR wee Be ee eee Ce TE Sew eRe RE BE RE RE BODO ZeEewonmoB ee Swe Lee we we ow 
ie | 
149 $DEQ_S ACMODE=R7,- DEQUEVE ALL LOCKS AT SPECIFIED | 
149 : FLAGS=#LCKSM_ DEQALL!LCKSh_ TNVVALBLK 
15 ; "ACCESS MODE AND INVALIDATE 
15 0 : VALUE BLOCKS 
1 91 | 
} 38 e J ee@ereeneaeaeanan mre sewn we ee aeaees em Se a eee Sw Se eS ee eae we = eee em eee a 
$4 ; DISASSOCIATE COMMON EVENT BLOCKS 
: : 38 teeeee seceee ee ee em ees eect eeereeee we = & ee a = st ee ee me we wee we Swe oe 
015 38 SDACEFC_S EFN=#64 : DISASSOCIATE GROUP #2 
16 399 SDACEFC7S EFN=#96 + DISASSOCIATE GROUP # 
0 491 a= se ee ww Ow www eoe = See een eeaeoenee (Oe ee ee eee me em em ae on oe ee eB Oe ew wer erw ese =e BO ew = = eS 
O17 4 § : CLEAR THE IPAST VECTOR AND ADDRESS 
; tbe : oe Se ee Se a roe SE ee me ee ee me ee ee ee ee 
51 0110 C4 09 172 407 MOVL  PCBSL_IPAST(R4),R1 : Pick up the vector 
24.Ci«‘< 17 408 BEQL 70$ ; There are none 
5 07 34 0179 409 MOVL Ag: ; Set up for ? entries 
a 2 8 017C 410 50$: ASHL #2,R2,R0 3; Each entry ts s 4 bits 
53 (51 04 ; 4 190 oi ty OR cea oRt RS ; any ene entry (mode+1) 
7  s Di 0187 118 CMPL R3,R7 : At a mo priv mode than ACMODE? 
OF 15 O1BA 414 BLEG © 608 : Yes, do not clear 
0110 C6 4606—C550—S—s(00s—«éDsO01 ¢ 415 INSV #0,R0,#4,PCBSL_IPAST(R4): No, clear it ou 
00000000 ° 9F 4g D4 01 416 CLRL  a#CTLSAL_IPASTVECCR2] ; and its senor tated address 
OF 5 F4 O19A 417 60$: SOBGEQ R2,50$ ; Loop until all done 
19D 418 70S: 
19D 41 
198 ? 5 wre we we Be Se mS we eS eee e we —~ © @ oe ee Oe SS we Se eS ew Se ee eee ee 
19 4 ¢ : PURGE PENDING UNDELIVERED AST CONTROL BLOCKS 
190 4 , : ociadeiiemiaiial SE ee ae a Se EE EE 
19D 4 : ASTRUNDWN: ; 
56 10 a4 DE 19 4 ee aechioY L  PCBSL_ASTOFL(R4) ,R6 + COMPUTE ADDRESS OF HEADER 
1A1 § ~SETIPL W*LO LOCK AST ARRIVAL & LOCK DOWN CODE 
60 AG 00000006 ° GF p i 4 p CHPL gic ERLMBX+4, PCBSL PrDRay CHECK FOR ERROR LOG MAILBOX 
0000000'GF 7C 0180 4 CLRQ G*EXESGQ_ERLMBX : YES, DEASSIGN IT 
0 1406 DO 0186 4 j 10$: MOVL PCBS ASTOBL (Re). RO : GET TAIL OF AST QUEUE 
56 50 D1 O1BA 434 CMPL ; CHECK FOR EMPTY QUEUE 
9 13 O1BD 435 BEQL = 2 + DONE WITH ASTS 
57 OB AO 02 00 ED 1BF 4 6 CMPZV #ACBSV_MODE ,#ACBSS_MODE, icbse RMOD(RO),R7 ; CHECK ACCESS MODE OF ACB 
1 19 1¢5 4 BLSS : REACHED THE END OF DELETABLE ASTS 
50 60 OF O1C7 438 REMQUE (RO),RO ; REMOVE. IT FROM AST QUEUE 
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6 1 
SYSR MAGE RUNDOWN SYSTEM SERVICE “SEP=1984 02:29: AX/VMS Macro v04-00 Page 
voee bob XESRUNDWN - IMAGE RUNDOWN SYSTEM SERVIC -SEP=1 1382 86:82:22 SYS.SRCJSYSRUNDWN.MAR; 1 . ay 
1 1CA 43 BVS IF gu UE 
03 0B AO bs ef CC 44 BBC sACBSY QUOTA, ACBSB_ rmon cho) » 15,"¢ SKIP Par MG NO "quota ACCOUNTING 
8 1Di 44 INCW pcos ALLOW ANOTHER 
0B AO ; 1p4 44 15$ Bits tite “NODELETE ! ACBSM wrhas ,ACBSB TAMOD (ROD ; SPECIAL ACTIONS? 
00000000'GF 1 1DA 444 JSB “EXE SDEANONPAGED : NO, DEALLOCATE IT 
4 «(1 IE 445 BRe 0 + CONTINUE 
CF OB 40 9 E1 O1E 109 18$: BBC #ACBSV_PKAST, /ACB$B_RMOD(RO),10$ ; BR IF NO NO PIG YBACK AST 
5 0 00 167 448 MOVL ; PUT ACB ADDRESS IN 
1EA 4 0; ; CALL PIGGY~BACK SPECIAL KERNEL AST ROUTINE. 
1EA 451: ADDRESS (MUST BE PRESERVED) 
JEA 438 : IPL = IPL$_ASTDEL (MUST NOT BE LOWERED) 
1EA 454° SETIPL #1PLS _ASTDEL ; LOWER IPL TO IPL$_ASTDEL 
SE 04 C2 O1ED 455 SUBL a4 ; EXTRA LONGWORD FOR INTER-PROCESS ASTS 
18 B5 16 169 436 J$B SEBS. LKAST(RS) ; CALL KAST ROUTINE 
SE 04 CO O1F3 45 ADDL #4 ; REMOVE EXTRA LONGWORD 
Ao Hf 438 BRB tot. _BEGIN : NO DELETE FOR PKAST 
1F 461 ; 
i? 236 3 RESET AST ACTIVE AND AST ENABLE BITS 
01 F 464 ; ere e we eer ee = ee ee ee em Se ee ce eee ee ee Sees Se eS ee Se (OP on me ne 
1FB 465 
5 57 DO O1F8 466 20$:  MOVL  R7,RS5 ; INITIALIZE MODE INDEX 
‘ 13 Og iH 467 a BEQL ©: 408 : SKIP TERMINATION HANDLER FOR KERNEL 
55 s D1 O1FD rhe: CMPL =: #2, RS : SUPERVISOR OR USER MODE? 
18 020 470 BGEQ : BRANCH IF NOT 
FFFFFFF8'9F45 D4 0202 47 CLRL  a#CTLSGL_CMSUPR-8 RS] > CLEAR CHANGE MODE HANDLER 
FEFFFFEC'SF4S D4 0 Arg 35$ CLRL @#CTLSGL-THEXEC-4(R5)  : CLEAR TERMINATION HANDLER 
00000000'9F4 C 0210 473 40$ CLRO CTLSAQ-EXCVECCRS] : CLEAR EXCEPTION HANDLER ENTRIES 
00000000'9F45 D4 0217 47% CLRL CILSAL TF INALEXCER53 : CLEAR LAST CHANCE EXCEPTION HANDLER 
00 OD A4 E 16 475 BBSS R5,PCBSB"ASTEN(R4),50$ : SET ENABLE BIT 
00 OC A4 E 476 508 BBCC PCBSB-ASTACT(R4),60$ : CLEAR AST ACTIVE 
50. 55 ra 477 60$ ADDL3 w#PCB$v_SSFEXC R5 +80 ; COMPUTE SSFAIL ENABLE BIT NUMBER 
00 24 Ad E5 ‘ 478 BBCC RO. PCBSL STS(R4).70$ |: AND CLEAR IT 
(855 04 F 479 70$ AOBLSS R5, 308 : DO ALL REQUESTED MODES 
000000'9F oD 5 480 CLRL ©=_ @#CTLEGL CHHANDLR ; CLEAR COMPATIBILITY MODE HANDLER 
000000'GF 16 481 JSB G*SCHSNEQLV COMPUTE NEW ASTLVL 
0001004 BF CA 0241 4&4 BICL #<laPCB$V TfORCPEN>:<1aPcisy WAKEPEN>,- ; CLEAR FORCE EXIT AND 
4 AG 47. & pcesi_s STSTR4) WAKE PENDING 
49 4 4 SETIPL # : ENABLE AGAIN — | 
+ cae « 6 : 
46C 487 : DELETE IMAGE LOGICAL NAMES 
rat tae 
6¢ 6 9 . 
4C 491 LOGNRUNDWN: ; LOGICAL NAME RUNDOWN 
7 »D 4C 49 MOVL RT, R2 : ACCESS MODE ARG TO RIGHT REGISTER 
53 0 ‘OF 6D 4F 49 MOVL #CTLSGL_LNMHASH,R3 ; ADDRESS OF PROCESS HASH TABLE 
on % 36 49% BEQL : NEVER ALLOCATED SPACE 
00000000'GF 16 495 JSB G*LNMSDELETE_HASH > DELETE ALL NAMES 
| 
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E $38 ; 

; 49 ; Reset PO extention to Process Allocation Region ete 
0000000'GF  7C E CLRQ G*CTL$GQ_POALLOC ; RESET LIST HEAD TO NULL EXE 
vet * ‘eel gf f 64 4 MOVZWL G*SGNSGW" CTLIMGLIM,R GET IMAGE LIMIT ON PO REQUESTS EXE 

00000090" 6 9 5 ASHL  4#9,R0,G°CTLSGL SERCKLLENT? AND RESET CELL CONTENTS. exe 
7 $ 3 Pre ee SE SOO D we we ee ee eS Be saeoewuwaecweeren = Be eee = nO meme eee me ew ee we we eS ee IPL 
7 3 ; IPL 
4 Ri Restore previous setting of resource wait mode Wt 
7 1 1 : SRT ST Re ww Sw wee See Se —aS SP EEE Dr OME OD Dene ome eee S&S we eee eo = eee ee LOG 
7 \§ 
50 4 7 1 CLAL RO : ASSUME ON 
09 6S D1 7 14 CMPL (SP)+,#SS$_WASSET : CHECK IF IT WAS OFF 
? 12 78 15 BNEQ 10$ ; BRANCH IF ON 
0 7A 18 INCL RO ; SET TO TURN OFF 
rc iv 10$:  $SETRWM_S WATFLG=RO 
50 01 3c 5 19 Ht Na #SS$_NORMAL ,RO ; SET NORMAL COMPLETION STATUS 
04 : y RET ; RETURN 
6 9 ¢ LOCK_IPL: ; END OF LOCKED DOWN CODE 
00000008 0 a -LONG IPL$_SYNCH 
028D 4 LOCK_END: 7 
028D 5 ASSUME LOCK_END-LOCK_BEGIN LE 512 3; MUST BE ON ADJOINING PAGES 
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~SBTTL EXESRESETVEC = REST PROVILEGED LIBRARY VECTORS 


T 
H 


"FUNCTIONAL D 
THIS R 
ALONG 


soma wt : 
B EXESRESETVEC 


RO, R1, R2, R3, AND R6 ARE DESTROYED 


0 
E 


Vwrorororrn wD 
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IPTION: 
NE RESETS THE KERNEL AND EXEC CHANGE MODE DISPATCH VECTORS 
THE RUNDOWN VECTORS. 


m £com 


SCR 
UTI 
ITH 
NCE 
SRE 


EXESRESETVEC:: 
MOVAB  _@#CTL$A_DISPVEC,R6 ;GET ADR OF 1ST VECTOR PAGE 
; VERIFY THAT EACH SET OF VECTORS USES ONE HALF PAGE 


ASSUME <NXTEVEC-NXTKVEC> EQ 256 
ASSUME <NXTRVEC“NXTEVEC> EQ 256 
ASSUME <NXTMVEC=NXTRVEC> EQ 256 


56 00000000'9F 9€ 


See roocvvov vc VT VT9900"N_0_C00°09—789 +2 


PDR DP BB BB BB EB PANINI nnonr 


WN OC VOODNOUES WN O OONOUE WN OOONOUE WW - OOOn 
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94 
52. 04 =A $4 MOVZBL ; THERE ARE FOUR yer ross TO RESET 
51 00000000'9F Ha 97 MOVAW aria SAW_VECRESET,R1 ; R1 LOCATES RESET CONTEXT 
53  00000000' 9F E iS MOVAW a@#1ACSAW_VEC CSET, RS ; R3 LOCATES THE STARTING POINT 
29 61 3C A 50$: MOVZWL (R1),RO ; GET OFFSET INTO + 7 
8 > B0 Ag MOVW (R1)+,(R3)+ ; RESET STARTING POINT 
$8 0 00 AB MOVL RO, (RO) ; STORE OFFSET INTO FIRST ,poauans 
5 56 = C0 AE ADDL2 R6,R0 ; LOCATE ADDRES . TO BE RESET 
60 05 9A B1 MOVZBL s0Ps RSB, (RO) ; STORE "'RSB’' A onunctas OFFSET 
56 dd: C6 DE B4 VAL 256(R6),R6 ; ADVANCE R6 10 "WEKT TOR 
E9 52 OF B9 SOBGTR R2,50$ ; AND LOOP IF NOT rey DONE 
05 BC $B 
5 
5 
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SEP-19 SYS.SR 5 $Y SRUNDWN. MAR; 1 (4) 
0 ee 


MSBASE reeeteee x 
ESET reeneeee x 9g 
I. AUDIT _CHAN 00000486 02 


f NXTE 


ACB$V_MODE 
ACBSV_PKAST 
ACBS$V_QUOTA 
ACMSV~ IMAGE 
ry ee 


> 
o 
ww" 
e383 
nhunnnnnnunnne 
Pe 
x 
a 


: OP$_RSB 
9 ° PCBSB_A T 
00019D 
Bucs UP TLCNTNONZ teereeee =X 


P) 
oo 
ror 


rer 
<o 
a 
= 
m—- 
azn 
a 
=-4 
= 
nhuun 
oooo 


SJ ekereere G 


~ACMFLAGS 
RUNDWN 


Be 


ad 

J 

Seth 
zw 


ELMSG 


meeeses 
Eo 


aes 


CO ee Se PHP PMI PM MM PMS OOMOOOOOOOOOOOOOOOOOOOOO 
ono 
‘ 
=a<c< 
ooom 
P=Socs 
ern 


~TNVVALBLK 
ELETE_HASH 
rks _BEGIN™ 
K-END 


LOCK™ IPL 
LOGNRUNDWN 


ccc 
° RRS 
+m 


gekaekene 
rerrkaene 
eeeaenreee 
geerenene 
gearteenre 
gkeaekenre 
gkeekenne 
reerkaene 
geeakene 
gerkkene 
reeakaene 
egeeaekeaene 
geekaeaee 
geerkene 
geekaeee 
gereeeene 
rerennne 
reraerene 
000000A5 
erkaakae 
eteeeeeee 
grekrene 
eereeanre 
eaeekaanre 
rerkrare 
rteereaee 
000028 
80000015 
rteerenee 
gteeeenre 
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SOOSOllS lOO SOLOS Sooo CoS 


OOCCCOCOSCSCSO—OOOOoonvwea 


geeeakane 
eeereene 


eeeareae 
Raeeakene 
Raeekneee 
Reekeene 
eaerkeaeee 
gaeeaeeee 
Reeaenreaee 
eeeareee 
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Peon ne seer eseen ees 


Psect synopsis ! 


: 
eer ecee eee sccenr en} 


PSECT name Allocation PSECT No. Attributes 

. ABS . 00 4 ( -)> 00 ¢ f-} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 000000 ( ) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 

YEXEPAGED 00002BD ( 701.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
dem wmncenron nese ee seesocosa} 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 31 0:00:00.08 0:00:00.27 

Command processing 113 0:00:0 a 0:09: . 

Pass 371 : Bh 98 0:00:24.9 

Symbol table sort 9 :00:01.97 88 : $-§ 

Pass 2 11 :00:02.54 0:00:05.51 

Symbol table output 11 :00:00.09 0:00: er 

Psect synopsis output 0:00:00. § 0:00:00. . 

Cross-reference output Ht :00. 0:00: 9-8 

Assembler run totals 64 0:00:17.29 0:00:37.07 


The working rat 
71031 bytes (1359 pages) of virtua 
There were 7 


$8 source Lines were read in Pass 1, producing 1 


Limit was 1650 pages. 
memory were used to buffer _the intermediate code. 
hold 132 


pages of symbol table space allocated t 
object records in Pass 2. 


pages of virtual memory were used to define 31 macros. 


Macro Library name 

“SEs sSDUAgS: ES¥S-08 JL1B.MLB;1 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 


$ueceseoeeoesesess 


6 non-local and 28 local symbols. 


re 


Macro Library statistics : 


! 
oe 


Mecros defined 


1460 GETS were required to define 28 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSRUNDWN/OBJ=0BJ$:SYSRUNDWN MSRC$:SYSRUNDWN/UPDATE=(ENHS: SYSRUNDWN) +EXECML$/LIB 
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DIGI 
CONF 
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